|
|  Russite Interregnum
|  Ecrit par Ph. DONSBACK
|
SCRIPT_TYPE 1
|
BEGIN "Interregnum"

  FLAGS  ClickFly AnimateFly
  PACKS  2
  WIDTH   9 * CW
  HEIGHT  3 * CH + 11 * COH

  ZeroToWin 96 - CARDSIN$10

  FOR stack = 0 TO 7

| indicator card

    FOUNDATION
      X stack * CW 
      Y 0
      DEAL 1,1
      MAX 0
      DRAGUPTO 0
      FLAGS PaintLast
      ID stack + 1
    END

| foundation

    FOUNDATION
      X stack * CW 
      Y CH
      First 0 - stack - 1, 1
      MAX 12
      JoinFrom 11
      FLAGS Join____ RotateJoin
      ID 10
    END
  END

  FOR stack = 0 TO 7

| stack

    STACK
      X stack * CW
      Y 2 * CH
      DEAL 1,1
      DragUpTo 1
      MAX 0
      ID 11
    END
  END

| Stock

  STACK
    X 8 * CW
    Y CH 
    DEAL 88
    DragUpTo 0
    MAX 0
    FLAGS PaintCount
    DealTo 11,1
    TakeFrom 0
  END


END
